home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / scbbs30.arc / SETUP (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  6KB  |  201 lines
  1. 5 PRINTCHR$(14)CHR$(8)
  2. 6 POKE53281,0:POKE53280,0
  3. 8 J$=CHR$(20):K$=CHR$(164):DIMME$(50)
  4. 10 FI$="AZ":GOSUB3030
  5. 11 PRINT:PRINT"[200]IT ANY KEY"
  6. 12 GETA$:IFA$=""THEN12
  7. 14 PRINT"[147][211][195][159][194][156][194][211] [158][205][129]E[150]N[151]U[152]![153]![146]":PRINT"[163][183][184][183][163][183][184][183][163][183][183][163]"
  8. 16 PRINT"[1][146] [159][195]REATE [198]ILEDISK"
  9. 18 PRINT"[2][146] [159][195]REATE [198]ILES"
  10. 19 PRINT"[3][146] [159][195]HANGE [193]RT [199]ALLERY [211]UBOP"
  11. 20 PRINT"[4][146] [159][195]REDIT [195]REDITFILE"
  12. 21 PRINT"[5][146] [159][195]REDIT [206]EW [205]SG [198]ILE"
  13. 22 PRINT"[154][215]HICH:[146]"
  14. 23 GETA$:IFA$=""THEN23
  15. 24 IFA$="1"THEN50
  16. 26 IFA$="2"THEN700
  17. 27 IFA$="3"THEN800
  18. 28 IFA$="4"THENN$="CREDITFILE":C=20:W=8:GOSUB5100:GOTO14
  19. 29 IFA$="5"THENN$="NEWMSGFILE":C=30:W=8:GOSUB5100:GOTO14
  20. 32 IFA$="?"THEN14
  21. 34 GOTO22
  22. 50 PRINT"[147][208][213][212] [193] [194][204][193][206][203] [196][201][211][203] [201][206][212][207] [196][210][201][214][197] 8"
  23. 52 PRINT"[159][198]ORMAT [211]YSTEM [196]ISK ([217]/[206]):"
  24. 54 GETA$:IFA$=""THEN54
  25. 56 IFA$="Y"ORA$="[217]"THENOPEN15,8,15,"N0:FILEDISK,15":CLOSE15:GOTO60
  26. 57 IFA$="N"ORA$="[206]"THEN60
  27. 58 GOTO54
  28. 60 GOSUB2000
  29. 61 R=255:GOSUB5000
  30. 62 PRINT"[147]# OF [205]SG [194]ASES YOU WOULD LIKE(MAX9)":INPUTNB
  31. 64 FORX=1TONB
  32. 66 PRINT"[156][206]AME OF [194]ASE #";X:INPUTBR$(X)
  33. 68 PRINT"[193]CCESS [204]EVEL":INPUTBR(X):NEXT
  34. 70 PRINT"[147]"
  35. 72 FORY=1TONB
  36. 74 PRINT"[155][193][195][211]:";BR(Y);" [153][206]AME:";BR$(Y):NEXT
  37. 76 PRINT"[154][195]ORRECT (Y/N):"
  38. 78 GETA$:IFA$=""THEN78
  39. 80 IFA$="Y"ORA$="[217]"THEN86
  40. 82 IFA$="N"ORA$="[206]"THEN62
  41. 84 GOTO78
  42. 86 PRINT"[159][208]LEASE WAIT...[211]AVING!":S$=","
  43. 88 OPEN1,8,5,"@0:BBS BOARDS,S,W":PRINT#1,NB:FORX=1TONB
  44. 90 PRINT#1,BR$(X)S$BR(X):NEXT:CLOSE1
  45. 91 OPEN1,8,5,"@0:BBS MESS,S,W":FORX=1TONB:PRINT#1,0:NEXT:CLOSE1
  46. 92 PRINT"[147][154][200]OW [205]ANY [196]/[204][207][193][196] [196]RIVES":INPUTDB
  47. 94 FORX=1TODB
  48. 96 PRINT"[156][196]EVICE OF [196]RIVE#";X:INPUTDS(X)
  49. 100 NEXT
  50. 102 PRINT"[147]"
  51. 104 FORY=1TODB
  52. 106 PRINT"[155][196][210][201][214][197]:";Y;" [153][196][214]#";DS(Y):NEXT
  53. 108 PRINT"[156][195]ORRECT (Y/N):"
  54. 110 GETA$:IFA$=""THEN110
  55. 112 IFA$="Y"ORA$="[217]"THEN118
  56. 114 IFA$="N"ORA$="[206]"THEN92
  57. 116 GOTO110
  58. 118 PRINT"[159][208]LEASE WAIT...[211]AVING!":S$=","
  59. 120 OPEN1,8,5,"@0:D/L BASES,S,W":PRINT#1,DB:FORX=1TODB
  60. 122 PRINT#1,DS(X):NEXT:CLOSE1
  61. 124 PRINT"[147][156][196]EVICE# FOR [199]-[198]ILES":INPUTAA
  62. 126 OPEN1,8,5,"DV.NUM,S,W":PRINT#1,AA:CLOSE1
  63. 127 IFMT=1THENBB=0:GOTO132
  64. 128 PRINT"[147][0] [194][194][211] 300/1200":PRINT"[1] [196]/[204]OAD [211]ECTION 1200 [207][206][204][217]"
  65. 130 PRINT"[2] [194][194][211] 1200 [207]NLY":INPUT"[215]HICH";BB
  66. 131 IFBB<0ORBB>2THEN128
  67. 132 PRINT"[147][158][193]CCESS [204]VL FOR [196]/[204][207][193][196] [211]ECTION":INPUTCC
  68. 133 DD=1
  69. 134 PRINT"[147][156][211]YSOP'S [206]AME":INPUTEE$
  70. 135 PRINT:PRINT"[159][208]LEASE WAIT!"
  71. 136 OPEN1,8,5,"@0:CONFIG,S,W":PRINT#1,BB","CC","DD","+EE$:CLOSE1
  72. 137 OPEN1,8,5,"@0:BBS DATA,S,W":PRINT#1,0:CLOSE1
  73. 138 OPEN1,8,5,"@0:LAST,S,W":PRINT#1,"[206]O [207]NE":CLOSE1
  74. 139 OPEN1,8,5,"@0:NUM.USERS,S,W":PRINT#1,0:CLOSE1
  75. 140 OPEN1,8,5,"@0:D/L LOG,S,W":PRINT#1," ":CLOSE1
  76. 142 OPEN1,8,5,"@0:CALLS,S,W":PRINT#1,0:CLOSE1
  77. 149 OPEN1,8,5,"SYS.INFO,S,W":PRINT#1,"":CLOSE1
  78. 150 OPEN1,8,5,"@0:[212].CALLERS,S,W":PRINT#1," ":CLOSE1
  79. 151 OPEN1,8,5,"@0:GRAFITTI,S,W":PRINT#1,"[211][195][194][194][211] [210]ULEZ":PRINT#1," ":CLOSE1
  80. 152 OPEN1,8,5,"@0:STORY,S,W":PRINT#1,"[207]NCE APON A TIME...":PRINT#1,"":CLOSE1
  81. 159 OPEN1,8,5,"@0:SYS.INFO,S,W":PRINT#1,"FILENAME 'SYS.INFO'":CLOSE1
  82. 160 OPEN1,8,5,"@0:B.MENU,S,W":PRINT#1," ":CLOSE1
  83. 164 OPEN1,8,5,"@0:GR.MENU,S,W":PRINT#1,0:CLOSE1
  84. 170 PRINT"[147][195][207][205][208][204][197][212][197][196]!!!![146]"
  85. 171 PRINT"[156][206]OW COPY THE FOLLOWING FILES TO YOUR":PRINT"FILEDISK... [212]HE FILES CAN";
  86. 172 PRINT"BE CHANGED USING A":PRINT"[205][211][199] [205][193][203][197][210]!"
  87. 173 PRINT"[158]MAIN":PRINT"MAIN1":PRINT"MENU.DOW":PRINT"MENU.MES"
  88. 174 PRINT"RR.INST":PRINT"SYSOP"
  89. 175 PRINT"[153]              [200]IT [193][206][217] [203][197][217][146]"
  90. 177 GETA$:IFA$=""THEN177
  91. 179 GOTO14
  92. 240 STOP
  93. 390 PRINT:PRINT"[197]RROR PRESENT:"A$","B$","C$","D$
  94. 395 PRINT:PRINT"[208]RESS SPACE TO CONTINUE"
  95. 397 GETA$:IFA$<>" "THEN397
  96. 398 RETURN
  97. 500 PRINT"[147][195]REATE [198]ILES[146]"
  98. 502 PRINT"[158]1. [154][199]RAPHICS [215]ELCOME [205]SG (WELC.BBS1)"
  99. 504 PRINT"[158]2. [154][193]SCII [215]ELCOME [205]SG (WELC.BBS)"
  100. 506 PRINT"[158]3. [154][205]SG AFTER [204]OGON (ANN.BBS2)"
  101. 508 PRINT"[158]4. [154][205]SG FOR [204][214][204] 7-9 [207]NLY (SPECIAL)"
  102. 510 PRINT"[158]5. [154][199]OODBYE [205]SG (BYE)"
  103. 512 PRINT"[158]6. [154][201]NFORMATION [198]ILE (INFO.BBS)"
  104. 514 PRINT"[158]7. [154][200]ELP [198]ILE (HELP)"
  105. 516 PRINT"[158]8. [154][206]EWUSER [205]SG (NEWUSER)"
  106. 518 PRINT"[158]9. [154][215]ANTED [215]AREZ (WANTED)"
  107. 520 PRINT"[158]10. [154][207]THER..."
  108. 530 INPUT"[159][215]HICH:";W$
  109. 532 IFW$="1"THENFL$="WELC.BBS1":GOSUB600
  110. 534 IFW$="2"THENFL$="WELC.BBS":GOSUB600
  111. 536 IFW$="3"THENFL$="ANN.BBS2":GOSUB600
  112. 538 IFW$="4"THENFL$="SPECIAL":GOSUB600
  113. 540 IFW$="5"THENFL$="BYE":GOSUB600
  114. 542 IFW$="6"THENFL$="INFO.BBS":GOSUB600
  115. 544 IFW$="7"THENFL$="HELP":GOSUB600
  116. 546 IFW$="8"THENFL$="NEWUSER":GOSUB600
  117. 548 IFW$="9"THENFL$="WANTED":GOSUB600
  118. 550 IFW$="10"THENGOSUB590
  119. 560 GOTO14
  120. 590 INPUT"[198]ILENAME";FL$
  121. 592 IFFL$=""THENRETURN
  122. 600 PRINT"[147][205][211][199] [195][210][197][193][212][207][210][146]"
  123. 602 PRINT"/U [154]UPPERCASE":PRINT"/L [154]LOWERCASE":PRINT"/EX [154]EXIT":PRINT"[194]EGIN."
  124. 603 PRINT"[164]";
  125. 604 FORL=1TO50
  126. 606 GOSUB1300:ME$(L)=B$
  127. 608 IFME$(L)="/U"ORME$(L)="/[213]"THENPRINTCHR$(142);:ME$(L)=CHR$(142):NEXT
  128. 610 IFME$(L)="/L"ORME$(L)="/[204]"THENPRINTCHR$(14);:ME$(L)=CHR$(14):NEXT
  129. 612 IFME$(L)="/EX"ORME$(L)="/[197][216]"THENL=L-1:GOTO620
  130. 614 NEXT
  131. 620 PRINT"[154][Q]UIT [R]EAD [S]AVE [E]DIT [C]ONT:":INPUTT$
  132. 621 PRINTCHR$(14)
  133. 622 IFT$="Q"THEN20
  134. 623 IFT$="C"ANDL<50THENPRINT"[147]":FORX=1TOL:PRINTME$(X):NEXTX:PRINT"[164]";:NEXTL:GOTO620
  135. 624 IFT$="R"THENPRINT"[147]":FORX=1TOL:PRINTME$(X):NEXTX:GOTO620
  136. 626 IFT$="S"THEN640
  137. 628 IFT$="E"THEN630
  138. 629 GOTO620
  139. 630 PRINT"[147]":FORX=1TOL:PRINTX;":";ME$(X):NEXT
  140. 632 INPUT"EDIT WHICH(0=NONE)";G
  141. 634 IFG=0THEN620
  142. 636 IFG<1ORG>LTHEN632
  143. 637 PRINTME$(G):PRINT"CHANGED TO..."
  144. 638 PRINT"[164]";:GOSUB1300:ME$(G)=B$:GOTO632
  145. 640 PRINT"[208]LEASE WAIT..."
  146. 642 OPEN1,8,5,"@0:"+FL$+",S,W"
  147. 644 FORX=1TOL:PRINT#1,ME$(X):NEXT:PRINT#1,"@":CLOSE1:GOTO500
  148. 700 GOTO500
  149. 800 INPUT"[147][158][201][196]# OF [211]UBOP";ID
  150. 802 INPUT"[206]AME OF [211]UBOP";NA$
  151. 804 INPUT"[195]ORRECT (Y/N)";YT$
  152. 806 IFYT$="Y"THEN810
  153. 808 GOTO14
  154. 810 PRINT"[154][208]LEASE WAIT!!"
  155. 812 OPEN1,8,5,"@0:GR.SUBOP,S,W":PRINT#1,ID","NA$:CLOSE1:GOTO14
  156. 1300 A$="":B$=""
  157. 1301 A$=""
  158. 1302 GETA$:IFA$=""THEN1302
  159. 1303 PRINTJ$+A$+K$;
  160. 1304 IFA$=CHR$(13)THENRETURN
  161. 1305 B$=B$+A$
  162. 1306 IFLEN(B$)=>79THENPRINTCHR$(13);:RETURN
  163. 1310 GOTO1301
  164. 2000 PRINT"[147][205]ODEM [212]YPE":PRINT"1- [158]1670/[214]OLKS1200":PRINT"2- [158]1650/[195]OMPATIBLE"
  165. 2002 PRINT"[159][215]HICH:"
  166. 2004 GETA$:IFA$=""THEN2004
  167. 2006 IFA$="1"THENMT=0:GOTO2010
  168. 2008 IFA$="2"THENMT=1:GOTO2010
  169. 2009 GOTO2004
  170. 2010 PRINT"[208]LEASE [215]AIT..."
  171. 2012 OPEN1,8,5,"@0:MODEM,S,W":PRINT#1,MT:CLOSE1:RETURN
  172. 3000 REM **VIEW SEQUENTIAL FILE**
  173. 3010 PRINT"[147]           [214]IEW [211]EQUENTIAL [198]ILE[146]"
  174. 3020 PRINT"[206]AME OF FILE 'Q' TO QUIT":INPUTFI$
  175. 3025 IFFI$="Q"THENRETURN
  176. 3030 PRINT"[147]":OPEN5,8,5,FI$+",S,R"
  177. 3040 GET#5,A$:IFST<>0THEN3060
  178. 3042 GETB$:IFB$=" "THENPRINT"[193]BORTED!":GOTO3060
  179. 3044 IFB$<>""THENPRINT"[208]AUSE";:GOTO3070
  180. 3050 PRINTA$;:GOTO3040
  181. 3060 CLOSE5:RETURN
  182. 3070 GETS$:IFS$=""THEN3070
  183. 3072 PRINT"";:GOTO3050
  184. 4000 REM **EDIT SEQUENTIAL FILE**
  185. 4999 RETURN
  186. 5000 REM NAME "OPEN REL FILE", AUG 83
  187. 5010 PRINT"[195]R[159]E[156]ATI[158]N[129]G [150][213][151]S[152]E[153]R[154]L[155]OG[159]..."
  188. 5020 N$="USERFILE":W=8
  189. 5070 C=100
  190. 5100 OPEN1,8,15:SN=5100:OPENW,8,W,N$+",L,"+CHR$(C):GOSUB5250
  191. 5140 R1=R+2:R2=0:IFR1>RTHENR2=INT(R1/(R+1)):R1=R1-(R+1)*R2
  192. 5150 SN=5150:PRINT#W,"0":GOSUB5250
  193. 5160 SN=5160:PRINT#1,"P"CHR$(W)CHR$(1)CHR$(0):GOSUB5250
  194. 5170 SN=5170:PRINT#1,"P"CHR$(W)CHR$(R1)CHR$(R2)CHR$(1):GOSUB5250
  195. 5180 SN=5180:PRINT#W,"END":GOSUB5250
  196. 5240 SN=5240:CLOSEW:GOSUB5250:CLOSE1:RETURN
  197. 5250 INPUT#1,E,E$,T,S:IFE<20ORE=50THENRETURN
  198. 5260 PRINT"DISK ERROR FROM SN";SN
  199. 5270 PRINTE;E$;T;S:CLOSEW:CLOSE1:STOP
  200. 5280 RETURN
  201.